inherited fmEditTemaUK: TfmEditTemaUK
  Left = 436
  Top = 590
  Width = 656
  Height = 200
  Caption = 'fmEditTemaUK'
  Constraints.MinHeight = 200
  Constraints.MinWidth = 656
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 146
    Width = 648
  end
  inherited Panel1: TPanel
    Width = 648
    inherited BitBtn1: TBitBtn
      Left = 478
    end
    inherited BitBtn2: TBitBtn
      Left = 558
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 45
    Width = 648
    Height = 101
    Align = alClient
    TabOrder = 2
    DesignSize = (
      648
      101)
    object Label1: TLabel
      Left = 12
      Top = 17
      Width = 28
      Height = 13
      Caption = #1058#1077#1084#1072':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 12
      Top = 41
      Width = 59
      Height = 13
      Caption = #1058#1077#1084#1072' (ENG):'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object cxDBTextEdit1: TcxDBTextEdit
      Left = 112
      Top = 13
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'TEMA'
      DataBinding.DataSource = dsTemaUK
      TabOrder = 0
      Width = 521
    end
    object cxDBTextEdit2: TcxDBTextEdit
      Left = 112
      Top = 37
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'TEMA_ENG'
      DataBinding.DataSource = dsTemaUK
      TabOrder = 1
      Width = 521
    end
  end
  object dsTemaUK: TDataSource
    DataSet = qTemaUK
    Left = 368
    Top = 64
  end
  object qTemaUK: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select t.*'
      'from TemaUK t'
      'where t.tisdelete is null and t.idtemauk = :idtemauk')
    UpdateObject = quTemaUK
    GeneratorField.Field = 'SDID'
    Left = 400
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'idtemauk'
        ParamType = ptUnknown
      end>
    object qTemaUKIDTEMAUK: TIntegerField
      FieldName = 'IDTEMAUK'
      Origin = '"TEMAUK"."IDTEMAUK"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qTemaUKIDUCHEBKURS: TIntegerField
      FieldName = 'IDUCHEBKURS'
      Origin = '"TEMAUK"."IDUCHEBKURS"'
    end
    object qTemaUKTEMA: TIBStringField
      FieldName = 'TEMA'
      Origin = '"TEMAUK"."TEMA"'
      Size = 255
    end
    object qTemaUKTEMA_ENG: TIBStringField
      FieldName = 'TEMA_ENG'
      Origin = '"TEMAUK"."TEMA_ENG"'
      Size = 255
    end
    object qTemaUKTTIMEENTER: TDateTimeField
      FieldName = 'TTIMEENTER'
      Origin = '"TEMAUK"."TTIMEENTER"'
    end
    object qTemaUKTTIMEEDIT: TDateTimeField
      FieldName = 'TTIMEEDIT'
      Origin = '"TEMAUK"."TTIMEEDIT"'
    end
    object qTemaUKTUSERENTER: TIBStringField
      FieldName = 'TUSERENTER'
      Origin = '"TEMAUK"."TUSERENTER"'
      Size = 80
    end
    object qTemaUKTUSEREDIT: TIBStringField
      FieldName = 'TUSEREDIT'
      Origin = '"TEMAUK"."TUSEREDIT"'
      Size = 80
    end
    object qTemaUKTISDELETE: TIntegerField
      FieldName = 'TISDELETE'
      Origin = '"TEMAUK"."TISDELETE"'
    end
  end
  object quTemaUK: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDTEMAUK,'
      '  IDUCHEBKURS,'
      '  TEMA,'
      '  TEMA_ENG,'
      '  TTIMEENTER,'
      '  TTIMEEDIT,'
      '  TUSERENTER,'
      '  TUSEREDIT,'
      '  TISDELETE'
      'from TemaUK '
      'where'
      '  IDTEMAUK = :IDTEMAUK')
    ModifySQL.Strings = (
      'update TemaUK'
      'set'
      '  IDTEMAUK = :IDTEMAUK,'
      '  IDUCHEBKURS = :IDUCHEBKURS,'
      '  TEMA = :TEMA,'
      '  TEMA_ENG = :TEMA_ENG'
      'where'
      '  IDTEMAUK = :OLD_IDTEMAUK')
    InsertSQL.Strings = (
      'insert into TemaUK'
      '  (IDTEMAUK, IDUCHEBKURS, TEMA, TEMA_ENG)'
      'values'
      '  (:IDTEMAUK, :IDUCHEBKURS, :TEMA, :TEMA_ENG)')
    DeleteSQL.Strings = (
      'delete from TemaUK'
      'where'
      '  IDTEMAUK = :OLD_IDTEMAUK')
    Left = 432
    Top = 64
  end
end
